home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / testfiles / TestGadget < prev    next >
Encoding:
Text File  |  2000-05-07  |  944 b   |  49 lines
  1. scr <- Screen new: 'TestScreen'
  2. scr setScreenModeID: 16r40D20001
  3. scr open
  4.  
  5. win <- Window new: 'TestWindow'
  6. win setFlags:      4111
  7. win setIDCMPFlags: 320
  8.  
  9. win openOnScreen: 'TestScreen'
  10.  
  11. crs <- Colors new: 'TestWindow'
  12. crs  loadColors: 16 from: 'Amigatalk:AmigaTalk.colors'
  13.  
  14. btxt <- IText new: 'BGadgTxt'
  15.  
  16. btxt setIText: 'Test Gadget:'
  17.  
  18. btxt setFrontPen: 3
  19. btxt setBackPen:  2
  20. btxt setLeftEdge: -125
  21. btxt setTopEdge:  2
  22.  
  23. bgad <- BoolGadget new: 'BooleanGadget'
  24. bgad registerTo: 'TestWindow'
  25.  
  26. bgad setITextName:  'BGadgTxt'
  27. bgad setStartPoint: 300 @ 80
  28.  
  29. win  addGadget: 'BooleanGadget' type: 0
  30. win  refreshGadgets
  31.  
  32. itxt <- IText new: 'TestIText'
  33. itxt setIText:     'Testing IText functionality!'
  34. itxt setFrontPen:   5
  35. itxt setBackPen:    2
  36. itxt setLeftEdge:   100
  37. itxt setTopEdge:    120
  38. itxt registerTo:   'TestWindow'
  39.  
  40. win  printIText:   'TestIText' at: 30 @ 20
  41. win  handleIntuition
  42.  
  43. itxt remove
  44. btxt remove
  45. bgad remove
  46.  
  47. win  close
  48. scr  close
  49.